home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1996 April / Macworld (1996-04).dmg / Educational Demos / Encyclopedia of Nature / DATA / contentM.dir / 00134_Script_134 < prev    next >
Text File  |  1995-04-13  |  384b  |  19 lines
  1.  
  2.  
  3.  
  4. on soundfader chan
  5.   if soundBusy(chan) = true then
  6.     
  7.     put the ticks + the volume of sound 1 into sttime
  8.     repeat while the volume of sound chan > chan
  9.       set the volume of sound chan = (sttime- the ticks)      
  10.       updatestage
  11.     end repeat
  12.     
  13.     sound stop chan
  14.     set the volume of sound chan = 255
  15.     set the soundLevel = 5
  16.   end if
  17.   
  18. end
  19.